home *** CD-ROM | disk | FTP | other *** search
/ Apple Reference & Presentation Library 1993 Spring / ARPL-Spring-93-Partner-Edition.iso / Applications / Word Processing / Aldus Personal Press 2.0 / PPPouch / Additions / Edit Menu Shortcuts / Copy / Copy
Encoding:
Text File  |  1992-05-29  |  643 b   |  42 lines  |  [SGPA/SCPG]
  1. on startup
  2. global bailout
  3.  
  4. checkTextToolIsOn
  5. if bailout = "false" then
  6. Copy
  7. end if
  8. end startup
  9.  
  10. on help
  11.  
  12. put  dialog (preload, 128) into thedialog
  13. put "---a\0" into item2
  14. put "---a\1" into item3
  15. put "---a\2" into item4
  16.  
  17.  
  18. repeat forever
  19. get dialog(display, thedialog)
  20. if (it = 1) then exit repeat
  21. end repeat
  22. get dialog(dispose, thedialog)
  23.  
  24. end help
  25.  
  26. on checkTextToolIsOn
  27. global bailout
  28.  
  29. put "true" into bailout
  30.  
  31. if toolmode = "TextTool" then
  32. if currentStoryNumber() = "none" then
  33. answer "A range of text must be selected."
  34. else
  35. put "false" into bailout
  36. end if
  37. else
  38. put "false" into bailout
  39. end if
  40. end checkTextToolIsOn
  41.  
  42.     }<BÏ